黑客帝国文字雨DELPHI版，D3D特效

黑客帝国文字雨DELPHI版，D3D特效黑客帝国特效   {  Application end  }
  if Key=VK_ESCAPE then
    Close;

  {  Screen mode change  }
  if (ssAlt in Shift) and (Key=VK_RETURN) then
  begin
    DXDraw1.Finalize;

    if doFullScreen in DXDraw1.Options then
    begin
     // RestoreWindow;

      DXDraw1.Cursor := crDefault;
      BorderStyle := bsSizeable;
      DXDraw1.Options := DXDraw1.Options - [doFullScreen];
    end else
    begin
    //  StoreWindow;

      DXDraw1.Cursor := crNone;
      BorderStyle := bsNone;
      DXDraw1.Options := DXDraw1.Options [doFullScreen];
    end;

    DXDraw1.Initialize;
  end;.
├── Project1.cfg
├── Project1.dof
├── Project1.dpr
├── Project1.exe
├── Project1.res
├── Unit1.dcu
├── Unit1.ddp
├── Unit1.dfm
├── Unit1.pas
├── Unit1.~ddp
├── Unit1.~dfm
├── Unit1.~pas
└── 找例子网_d3dtest.rar

0 directories, 13 files